home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / general / Class.st < prev    next >
Encoding:
Text File  |  2000-02-23  |  1.4 KB  |  67 lines
  1. " ----------------------------------------------------------"
  2. " Added getByteArray: methodString  method on 09/26/98.     "
  3. "-----------------------------------------------------------"
  4.  
  5. Class Class
  6. [
  7.   edit
  8.     <primitive 150 self>
  9. |
  10.   list
  11.     <primitive 157 self>
  12. |
  13.   new ! superclass newinstance !
  14.     superclass <- <primitive 151 self>.
  15.  
  16.     <primitive 3 superclass >
  17.       ifTrue: [newinstance <- superclass new ]. 
  18.  
  19.     newinstance <- <primitive 153 self newinstance >.
  20.  
  21.     <primitive 155 self #new > 
  22.       ifTrue: [newinstance <- newinstance new].
  23.  
  24.     ^ newinstance
  25. |
  26.   new: aValue ! superclass newinstance !
  27.     superclass <- <primitive 151 self>.
  28.  
  29.     <primitive 3 superclass >
  30.       ifTrue: [newinstance <- superclass new ]. 
  31.  
  32.     newinstance <- <primitive 153 self newinstance >.
  33.  
  34.     <primitive 155 self #new: > 
  35.       ifTrue: [newinstance <- newinstance new: aValue ].
  36.  
  37.     ^ newinstance
  38. |
  39.   printString
  40.     ^ <primitive 152 self >
  41. |
  42.   respondsTo
  43.     <primitive 154 self>
  44. |
  45.   respondsTo: aSymbol ! aClass !
  46.     aClass <- self.
  47.  
  48.     [aClass notNil] whileTrue:
  49.       [ <primitive 155 aClass aSymbol> ifTrue: [ ^ true ].
  50.         aClass <- aClass superClass ].
  51.  
  52.     ^ false
  53. |
  54.   superClass
  55.     ^ <primitive 151 self>
  56.  
  57. |
  58.   variables
  59.     ^ <primitive 158 self>
  60. |
  61.   view
  62.     <primitive 156 self>
  63. |
  64.   getByteArray: methodString
  65.     ^ <primitive 159 self methodString> "159 was an unused primitive."
  66. ]
  67.